SetSwissParameters Interface
public interface SetSwissParameters
Module Procedures
private subroutine SetSwissParametersSystem(system, latc, lonc, azimuth, falseE, falseN, k)
Set parameters for Swiss Oblique Cylindrical reference system
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(CRS), | intent(inout) | :: | system | |||
| real(kind=float), | intent(in) | :: | latc |
Latitude of projection center [rad] |
||
| real(kind=float), | intent(in) | :: | lonc |
Longitude of projection center [rad] |
||
| real(kind=float), | intent(in) | :: | azimuth |
azimuth of centerline |
||
| real(kind=float), | intent(in) | :: | falseE |
Easting/X at the center of the projection |
||
| real(kind=float), | intent(in) | :: | falseN |
Northing/Y at the center of the projection |
||
| real(kind=float), | intent(in) | :: | k |
scale factor |
private subroutine SetSwissParametersCoord(coord, latc, lonc, azimuth, falseE, falseN, k)
Set parameters for Swiss Oblique Cylindrical reference system
Arguments
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(Coordinate), | intent(inout) | :: | coord | |||
| real(kind=float), | intent(in) | :: | latc |
Latitude of projection center [rad] |
||
| real(kind=float), | intent(in) | :: | lonc |
Longitude of projection center [rad] |
||
| real(kind=float), | intent(in) | :: | azimuth |
azimuth of centerline |
||
| real(kind=float), | intent(in) | :: | falseE |
Easting/X at the center of the projection |
||
| real(kind=float), | intent(in) | :: | falseN |
Northing/Y at the center of the projection |
||
| real(kind=float), | intent(in) | :: | k |
scale factor |